Imports System.Data.SqlClient
Imports System.xml
Public Class dDetalleFactura

    Public Function Existe(ByVal idDetalleFactura As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If idDetalleFactura <> "" Then
            Parametros.Add(New SqlParameter("@pEidDetalleFactura", idDetalleFactura))
        End If
        Return (CapaDeDatos.dConexion.Consultar("STORE_TblDetalleFacturaBUSCARUNO", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function
    Public Function Insertar(ByVal Cantidad As String, ByVal PrecioUnitario As String, _
                            ByVal Subtotal As String, ByVal Total As String, _
                            ByVal idFactura As Integer, ByVal CodigoConcepto As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList

        If Cantidad <> "" Then
            Parametros.Add(New SqlParameter("@pECantidad", Cantidad))
        End If
        If PrecioUnitario <> "" Then
            Parametros.Add(New SqlParameter("@pEPrecioUnitario", CDbl(PrecioUnitario)))
        End If
        If Subtotal <> "" Then
            Parametros.Add(New SqlParameter("@pESubtotal", CDbl(Subtotal)))
        End If
        If Total <> "" Then
            Parametros.Add(New SqlParameter("@pETotal", CDbl(Total)))
        End If
        If idFactura <> 0 Then
            Parametros.Add(New SqlParameter("@pEidFactura", idFactura))
        End If
        If CodigoConcepto <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoConcepto", CodigoConcepto))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblDetalleFacturaALTA", Parametros)
    End Function
    Public Function Eliminar(ByVal idDetalleFactura As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If idDetalleFactura <> 0 Then
            Parametros.Add(New SqlParameter("@pEidDetalleFactura", idDetalleFactura))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblDetalleFacturaELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal idDetalleFactura As String, ByVal Cantidad As String, ByVal PrecioUnitario As String, ByVal Subtotal As String, ByVal Total As String, ByVal idFactura As String, ByVal CodigoConcepto As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If idDetalleFactura <> 0 Then
            Parametros.Add(New SqlParameter("@pEidDetalleFactura", idDetalleFactura))
        End If
        If Cantidad <> "" Then
            Parametros.Add(New SqlParameter("@pECantidad", Cantidad))
        End If
        If PrecioUnitario <> "" Then
            Parametros.Add(New SqlParameter("@pEPrecioUnitario", CDbl(PrecioUnitario)))
        End If
        If Subtotal <> "" Then
            Parametros.Add(New SqlParameter("@pESubtotal", CDbl(Subtotal)))
        End If
        If Total <> "" Then
            Parametros.Add(New SqlParameter("@pETotal", CDbl(Total)))
        End If
        If idFactura <> 0 Then
            Parametros.Add(New SqlParameter("@pEidFactura", idFactura))
        End If
        If CodigoConcepto <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoConcepto", CodigoConcepto))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblDetalleFacturaMODIFICAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal idDetalleFactura As String, ByVal Cantidad As String, ByVal PrecioUnitario As String, ByVal Subtotal As String, ByVal Total As String, ByVal idFactura As String, ByVal CodigoConcepto As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If idDetalleFactura <> "" Then
            Parametros.Add(New SqlParameter("@pEidDetalleFactura", idDetalleFactura))
        End If
        If Cantidad <> "" Then
            Parametros.Add(New SqlParameter("@pECantidad", Cantidad))
        End If
        If PrecioUnitario <> "" Then
            Parametros.Add(New SqlParameter("@pEPrecioUnitario", PrecioUnitario))
        End If
        If Subtotal <> "" Then
            Parametros.Add(New SqlParameter("@pESubtotal", Subtotal))
        End If
        If Total <> "" Then
            Parametros.Add(New SqlParameter("@pETotal", Total))
        End If
        If idFactura <> "" Then
            Parametros.Add(New SqlParameter("@pEidFactura", idFactura))
        End If
        If CodigoConcepto <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoConcepto", CodigoConcepto))
        End If
        Return CapaDeDatos.dConexion.Consultar("STORE_TblDetalleFacturaBUSCARFILTRADO", Parametros)
    End Function
End Class
